inherited frm_Reparcela: Tfrm_Reparcela
  Left = 298
  Top = 207
  Caption = 'Reparcelamento'
  ClientHeight = 534
  ClientWidth = 734
  OldCreateOrder = True
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 734
    Height = 108
    object lblTitulo: TLabel
      Left = 9
      Top = 56
      Width = 77
      Height = 14
      Caption = 'N'#250'mero do t'#237'tulo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object lblNF: TLabel
      Left = 12
      Top = 56
      Width = 76
      Height = 14
      Caption = 'N'#250'mero da nota'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object lblSerie: TLabel
      Left = 9
      Top = 31
      Width = 79
      Height = 14
      Caption = 'N'#250'mero de s'#233'rie'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object lblEntidade: TLabel
      Left = 47
      Top = 81
      Width = 41
      Height = 14
      Alignment = taRightJustify
      Caption = 'Entidade'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object BtnC_Entidade: TSpeedButton
      Left = 189
      Top = 77
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = BtnC_EntidadeClick
    end
    object BtnC_Nota: TSpeedButton
      Left = 189
      Top = 52
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = BtnC_NotaClick
    end
    object edtTitc_numero: TEdit
      Left = 92
      Top = 52
      Width = 93
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 20
      TabOrder = 2
      OnKeyDown = edtTitc_numeroKeyDown
    end
    object EdtNumSerie: TEdit
      Left = 92
      Top = 27
      Width = 38
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 3
      TabOrder = 3
    end
    object EdtNumNota: TEdit
      Left = 92
      Top = 52
      Width = 85
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 9
      TabOrder = 4
      OnEnter = EdtNumNotaEnter
      OnExit = EdtNumNotaExit
      OnKeyDown = EdtNumNotaKeyDown
      OnKeyPress = EdtNumNotaKeyPress
    end
    object PnlEntidade: TPanel
      Left = 215
      Top = 77
      Width = 498
      Height = 22
      Alignment = taLeftJustify
      BevelInner = bvLowered
      TabOrder = 6
    end
    object rgNota: TRadioButton
      Left = 64
      Top = 5
      Width = 113
      Height = 17
      Caption = 'por Nota'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rgNotaClick
    end
    object rgTitulo: TRadioButton
      Left = 160
      Top = 5
      Width = 113
      Height = 17
      Caption = 'por T'#237'tulo'
      TabOrder = 1
      TabStop = True
      OnClick = rgTituloClick
    end
    object Edt_Entidade: TComboBox
      Left = 93
      Top = 78
      Width = 92
      Height = 22
      BevelKind = bkFlat
      ItemHeight = 14
      TabOrder = 5
      OnEnter = Edt_EntidadeEnter
      OnExit = Edt_EntidadeExit
      OnKeyDown = Edt_EntidadeKeyDown
    end
  end
  inherited Panel2: TPanel
    Top = 108
    Width = 734
    Height = 359
    object dbgParcelas: TDBGrid
      Left = 3
      Top = 184
      Width = 728
      Height = 142
      Hint = 'Clique duas vezes para editar'#13#10'[Del] para excluir'
      Align = alClient
      Ctl3D = False
      DataSource = dsReparc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = dbgParcelasDblClick
      OnKeyDown = dbgParcelasKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'Emp_Codigo'
          Title.Caption = 'Empresa'
          Width = 57
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TipoDoc'
          Title.Alignment = taCenter
          Title.Caption = 'TD'
          Width = 28
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NumeroTitulo'
          Title.Alignment = taCenter
          Title.Caption = 'Num. T'#237'tulo'
          Width = 119
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Valor'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Title.Alignment = taRightJustify
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'Arial'
          Title.Font.Style = [fsBold]
          Width = 105
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Vencimento'
          Title.Alignment = taCenter
          Title.Caption = 'Data Venc.'
          Width = 103
          Visible = True
        end>
    end
    object GroupBox1: TGroupBox
      Left = 3
      Top = 121
      Width = 728
      Height = 63
      Align = alTop
      Caption = 'Informa'#231#245'es dos t'#237'tulos: '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
      object Label6: TLabel
        Left = 294
        Top = 20
        Width = 69
        Height = 14
        Caption = 'Valor do T'#237'tulo'
      end
      object Label7: TLabel
        Left = 409
        Top = 20
        Width = 57
        Height = 14
        Caption = 'Vencimento'
      end
      object Label5: TLabel
        Left = 6
        Top = 20
        Width = 84
        Height = 14
        Caption = 'N'#250'm. de Parcelas'
      end
      object edValor: TCurrencyEdit
        Left = 294
        Top = 35
        Width = 105
        Height = 22
        AutoSize = False
        Ctl3D = False
        Enabled = False
        ParentCtl3D = False
        TabOrder = 1
      end
      object bInsere: TBitBtn
        Left = 536
        Top = 32
        Width = 89
        Height = 25
        Caption = 'Gerar'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = bInsereClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
          007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
          7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
          99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
      object edVencimento: TDateEdit
        Left = 406
        Top = 35
        Width = 121
        Height = 21
        Ctl3D = False
        Enabled = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 2
        OnKeyDown = edVencimentoKeyDown
      end
      object bCancela: TBitBtn
        Left = 629
        Top = 32
        Width = 89
        Height = 25
        Caption = 'Cancelar'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        TabStop = False
        OnClick = bCancelaClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          3333333777333777FF3333993333339993333377FF3333377FF3399993333339
          993337777FF3333377F3393999333333993337F777FF333337FF993399933333
          399377F3777FF333377F993339993333399377F33777FF33377F993333999333
          399377F333777FF3377F993333399933399377F3333777FF377F993333339993
          399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
          99333773FF3333777733339993333339933333773FFFFFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
      end
      object edNumParc: TRxSpinEdit
        Left = 5
        Top = 34
        Width = 121
        Height = 20
        MaxValue = 999.000000000000000000
        MinValue = 1.000000000000000000
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
      end
    end
    object Panel3: TPanel
      Left = 3
      Top = 326
      Width = 728
      Height = 30
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 3
      object Label4: TLabel
        Left = 95
        Top = 6
        Width = 98
        Height = 14
        Alignment = taRightJustify
        Caption = 'Total Reparcelado'
      end
      object Label9: TLabel
        Left = 308
        Top = 6
        Width = 94
        Height = 14
        Caption = 'Valor dos T'#237'tulos'
      end
      object Label8: TLabel
        Left = 557
        Top = 5
        Width = 52
        Height = 14
        Caption = 'Diferen'#231'a'
      end
      object edVlrTitulo: TCurrencyEdit
        Left = 406
        Top = 4
        Width = 105
        Height = 21
        TabStop = False
        AutoSize = False
        Color = clInfoBk
        Ctl3D = False
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 0
      end
      object edTotal: TDBEditCurrencyXP
        Left = 199
        Top = 4
        Width = 97
        Height = 21
        TabStop = False
        Colors.ColorDisabled = clBtnFace
        Colors.ColorDisabledText = clGray
        Colors.ColorOnFocus = clWhite
        Colors.ColorOnNotFocus = clMoneyGreen
        DataField = 'TOTAL'
        DataSource = dsReparc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        OnChange = edTotalChange
        DisplayFormat = 'R$ ,0.00;-R$ ,0.00'
        PosColor = clBlue
      end
      object edDifer: TCurrencyEdit
        Left = 614
        Top = 4
        Width = 105
        Height = 21
        TabStop = False
        AutoSize = False
        Color = clWhite
        Ctl3D = False
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 2
      end
    end
    object dbgTitulos: TDBGrid
      Left = 3
      Top = 3
      Width = 728
      Height = 118
      Align = alTop
      Ctl3D = False
      DataSource = dsTITULOS
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = dbgTitulosDrawColumnCell
      OnDblClick = dbgTitulosDblClick
      OnKeyDown = dbgTitulosKeyDown
      OnTitleClick = dbgTitulosTitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Empresa'
          Width = 56
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TipoDoc'
          Title.Alignment = taCenter
          Title.Caption = 'TD'
          Width = 27
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'NumTitulo'
          Title.Alignment = taCenter
          Title.Caption = 'Num. T'#237'tulo'
          Width = 113
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Ent_Codigo'
          Title.Caption = 'Entidade'
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Valor'
          Title.Alignment = taRightJustify
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Saldo'
          Title.Alignment = taRightJustify
          Width = 106
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DtEmis'
          Title.Alignment = taCenter
          Title.Caption = 'Data Emiss'#227'o'
          Width = 82
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DtVenc'
          Title.Alignment = taCenter
          Title.Caption = 'Data Venc.'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Status'
          Title.Caption = 'Reparcelar'
          Visible = False
        end>
    end
  end
  inherited Panel4: TPanel
    Top = 467
    Width = 734
    inherited btnCancelar1: TBitBtn
      Left = 321
    end
    inherited btnFechar1: TBitBtn
      Left = 632
    end
    inherited BtnEliminar1: TBitBtn
      Top = 36
    end
    inherited btnlistagem1: TBitBtn
      Left = 475
      Top = 44
    end
    inherited btnGravar: TFlatButton
      Enabled = False
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Top = 36
      Visible = False
    end
    inherited btnCancelar: TFlatButton
      Left = 311
    end
    inherited btnlistagem: TFlatButton
      Left = 453
      Top = 36
      Visible = False
    end
    inherited btnFechar: TFlatButton
      Left = 613
    end
  end
  inherited BS: TStatusBar
    Top = 515
    Width = 734
  end
  inherited Timer1: TTimer
    Left = 645
    Top = 36
  end
  inherited RDP: TRDprint
    Left = 676
    Top = 36
  end
  inherited JvApplicationHotKey1: TJvApplicationHotKey
    Left = 608
    Top = 9
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterDelete = CDSAfterDelete
    Left = 673
    Top = 8
    object CDSTipoDoc: TStringField
      FieldName = 'TipoDoc'
    end
    object CDSNumTitulo: TStringField
      FieldName = 'NumTitulo'
    end
    object CDSValor: TFloatField
      FieldName = 'Valor'
      currency = True
    end
    object CDSDtVenc: TDateField
      FieldName = 'DtVenc'
    end
    object CDSEmpresa: TStringField
      FieldName = 'Empresa'
    end
    object CDSDtEmis: TDateField
      FieldName = 'DtEmis'
    end
    object CDSNota_Serie: TStringField
      FieldName = 'Nota_Serie'
      Size = 3
    end
    object CDSNota_Numero: TStringField
      FieldName = 'Nota_Numero'
      Size = 9
    end
    object CDSStatus: TStringField
      FieldName = 'Status'
    end
    object CDSEnt_Codigo: TStringField
      FieldName = 'Ent_Codigo'
    end
    object CDSSaldo: TFloatField
      FieldName = 'Saldo'
      currency = True
    end
  end
  object dsTITULOS: TDataSource
    DataSet = CDS
    Left = 641
    Top = 8
  end
  object CDSReparc: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    Params = <>
    AfterEdit = CDSReparcAfterEdit
    AfterPost = CDSReparcAfterPost
    AfterCancel = CDSReparcAfterCancel
    AfterDelete = CDSReparcAfterDelete
    Left = 648
    Top = 93
    object CDSReparcTipoDoc: TStringField
      FieldName = 'TipoDoc'
    end
    object CDSReparcNumeroTitulo: TStringField
      FieldName = 'NumeroTitulo'
    end
    object CDSReparcValor: TFloatField
      FieldName = 'Valor'
      currency = True
    end
    object CDSReparcVencimento: TDateField
      FieldName = 'Vencimento'
    end
    object CDSReparcTIPO: TStringField
      FieldName = 'TIPO'
    end
    object CDSReparcTITULO: TStringField
      FieldName = 'TITULO'
    end
    object CDSReparcEnt_Codigo: TStringField
      FieldName = 'Ent_Codigo'
      Size = 5
    end
    object CDSReparcEmp_Codigo: TStringField
      FieldName = 'Emp_Codigo'
      Size = 3
    end
    object CDSReparcTOTAL: TAggregateField
      FieldName = 'TOTAL'
      Active = True
      currency = True
      Expression = 'sum(VALOR)'
    end
  end
  object dsReparc: TDataSource
    DataSet = CDSReparc
    Left = 680
    Top = 93
  end
end
